﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>         
<%

Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select id from qingtian_chuwu where page=0"
			Rs.Open Sql,conn,1,3
			if not (rs.bof and rs.eof)  then
				For i=1 to rs.RecordCount
					If Rs.Eof Then
						exit For
					End If

					rs.delete
					Rs.MoveNext
				Next

			end if
			Rs.close

	dim rs,sql,i,name,act,page,bid,savauu,fansid
                bid=qingtian.nid
    		act = Request("act")
    		Page = Request("page")      '当前页数
    		If Page = "" Then Page = 1
   		If Not IsNumeric(Page) Then Page = 1
    		Page = CLng(Page)
    		If Page < 1 Then Page = 1

	if act="" then act=1
        if act=1 then
        fansid=Request.QueryString("fansid")
	if fansid="" then fansid=0
	if not isnumeric(fansid) then fansid=0
	fansid=clng(fansid)
        if fansid=0 then 
        savauu="" 
        else
        savauu="action=pay1&amp;fansid="&fansid&"&amp;"
        end if
        end if
select case v
case "0"
we0="<br/>"
hr="-------------<br/>"
Randomize()
book="跳到第<input name='Page' format='*N' size='2' maxlength='5'/><anchor>页<go href='chuwu.asp?act="&act&"&amp;fansid="&fansid&"&amp;sid="&sidd&"&amp;run="& Int((9999) * Rnd() + 1) &"' method='post'><postfield name=""Page"" value=""$(Page:n)"" /></go></anchor><br/>"
%>
<card title="我的储物箱"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
Randomize()
book=""&dao&"<form action=""chuwu.asp?act="&act&"&amp;fansid="&fansid&"&amp;sid="&sidd&"&run="& Int((9999) * Rnd() + 1) &""" method=""post"">跳到第<input type=""text"" name=""Page"" value="""" format=""*N"" size=""2"" maxlength=""5""/><input type=""submit"" value=""页"" /></form>"&we0&""
%>
<title>我的储物箱</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%
End Select
%>		
<%



		if sid="Null" then
Response.Redirect "/login.asp?sid="&sidd&"&url=/user/chuwu.asp?sid="&sidd&"@@fansid="&fansid&"@@urls="&urls
		else
		qingtian.info
		end if


		if act=1 then
Sql = "select a.nid,a.page,b.name,b.tupic,b.zmeili from qingtian_chuwu a,qingtian_shangpin b where a.nid=b.nid and a.lib=1 and a.bid="&bid&" order by a.id desc"
		%><%=qingtian.qingsav("100")%><%=dao%>==我的储物箱==<%=we0%><%=sou%><%=zi%>礼物<%=zi0%>.<a href="chuwu.asp?act=2&amp;sid=<%=sidd%>"><%=zi%>道具<%=zi0%></a>.<a href="chuwu.asp?act=3&amp;sid=<%=sidd%>"><%=zi%>头像<%=zi0%></a>.<a href="chuwu.asp?act=4&amp;sid=<%=sidd%>"><%=zi%>勋章<%=zi0%></a><%=we0%><%=we%><%=hr%><%
		elseif act=2 then
Sql = "select a.nid,a.page,b.name,b.tupic,b.zbit,b.zmeili,b.ztili,b.zjifen,b.zvip from qingtian_chuwu a,qingtian_shangpin b where a.nid=b.nid and a.lib=2 and a.bid="&bid&" order by a.id desc"
		%><%=qingtian.qingsav("100")%><%=dao%>==我的储物箱==<%=we0%><%=sou%><%=zi%>道具<%=zi0%>.<a href="chuwu.asp?act=1&amp;sid=<%=sidd%>"><%=zi%>礼物<%=zi0%></a>.<a href="chuwu.asp?act=3&amp;sid=<%=sidd%>"><%=zi%>头像<%=zi0%></a>.<a href="chuwu.asp?act=4&amp;sid=<%=sidd%>"><%=zi%>勋章<%=zi0%></a><%=we0%><%=we%><%=hr%><%
                elseif act=3 then
Sql = "select a.nid,a.page,b.name,b.tupic,b.touxian from qingtian_chuwu a,qingtian_shangpin b where a.nid=b.nid and a.lib=3 and a.bid="&bid&" order by a.id desc"
		%><%=qingtian.qingsav("100")%><%=dao%>==我的储物箱==<%=we0%><%=sou%><%=zi%>头像<%=zi0%>.<a href="chuwu.asp?act=2&amp;sid=<%=sidd%>"><%=zi%>道具<%=zi0%></a>.<a href="chuwu.asp?act=1&amp;sid=<%=sidd%>"><%=zi%>礼物<%=zi0%></a>.<a href="chuwu.asp?act=4&amp;sid=<%=sidd%>"><%=zi%>勋章<%=zi0%></a><%=we0%><%=we%><%=hr%><%
               elseif act=4 then
Sql = "select a.nid,a.page,b.name,b.xunzan from qingtian_chuwu a,qingtian_shangpin b where a.nid=b.nid and a.lib=4 and a.bid="&bid&" order by a.id desc"         
                %><%=qingtian.qingsav("100")%><%=dao%>==我的储物箱==<%=we0%><%=sou%><%=zi%>勋章<%=zi0%>.<a href="chuwu.asp?act=2&amp;sid=<%=sidd%>"><%=zi%>道具<%=zi0%></a>.<a href="chuwu.asp?act=3&amp;sid=<%=sidd%>"><%=zi%>头像<%=zi0%></a>.<a href="chuwu.asp?act=1&amp;sid=<%=sidd%>"><%=zi%>礼物<%=zi0%></a><%=we0%><%=we%><%=hr%><%
		end if
		Rs.Open Sql,conn,1,1
		if not (rs.bof and rs.eof)  then

				Rs.PageSize = 7	'一页N条记录
				IF Not IsEmpty(Page) Then
					IF Not IsNumeric(Page) Then		'判断Page是否为数字
						Page=1
					Else
						Page=Cint(Page)		'转换成短整形Integer
					End IF
					IF Page > Rs.PageCount Then
						Rs.AbsolutePage = Rs.PageCount	'设置当前显示页等于最后一页
					ElseIF Page <= 0 Then
						Rs.AbsolutePage = 1		'设置当前页等于第一页
					Else
						Rs.AbsolutePage = Page	'如果大于零,显示当前页等于接收的页数
					End IF
				Else
					Rs.AbsolutePage = 1
				End IF
				Page = Rs.AbsolutePage
		For i=1 to  Rs.PageSize
		If Rs.Eof Then
			exit For
		End If

			if act=1 then 

%>
<img src="<%=rs("tupic")%>" alt="<%=qingtian.utf8(rs("name"))%>" noselect = "true"/><br/><%=i+(page-1)*Rs.PageSize%>.<a href="viewdaoju.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a>[<a href="songli.asp?<%=savauu%>nid=<%=rs("nid")%>&amp;sid=<%=sidd%>">送礼</a>]<br/>魅力:+<%=zi%><%=rs("zmeili")%><%=zi0%>,数量:<%=zi%><%=rs("page")%><%=zi0%><br/>
			<% elseif act=2 then %>
<img src="<%=rs("tupic")%>" alt="<%=qingtian.utf8(rs("name"))%>" noselect = "true"/><br/><%=i+(page-1)*Rs.PageSize%>.<a href="viewdaoju.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>"><%=qingtian.utf8(rs("name"))%></a>[<a href="shiyong.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>">使用</a>]<br/>
<% if rs("zmeili")<>0 then %>
魅力:+<%=zi%><%=rs("zmeili")%><%=zi0%>,
<% end if %>
<% if rs("ztili")<>0 then %>
体力:+<%=zi%><%=rs("ztili")%><%=zi0%>,
<% end if %>
<% if rs("zjifen")<>0 then %>
积分:+<%=zi%><%=rs("zjifen")%><%=zi0%>,
<% end if %>
<% if rs("zbit")<>0 then %>
<%=qingtian.bi%>:+<%=zi%><%=rs("zbit")%><%=zi0%>,
<% end if %>
<% if rs("zvip")<>0 then %>
vip:+<%=zi%><%=rs("zvip")%><%=zi0%>个月,
<% end if %>
数量:<%=zi%><%=rs("page")%><%=zi0%><br/>

			<% elseif act=3 then %>
<%=i+(page-1)*Rs.PageSize%>.<%=qingtian.utf8(rs("name"))%><br/><img src="<%=rs("touxian")%>" alt='<%=qingtian.utf8(rs("name"))%>' noselect = "true" />[<a href="shiyong.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>">使用</a>]<br/>数量:<%=zi%><%=rs("page")%><%=zi0%><br/>
			<% elseif act=4 then %>
<%=i+(page-1)*Rs.PageSize%>.<%=qingtian.utf8(rs("name"))%><br/><img src="<%=rs("xunzan")%>" alt='<%=qingtian.utf8(rs("name"))%>' noselect = "true" />[<a href="shiyong.asp?nid=<%=rs("nid")%>&amp;sid=<%=sidd%>">使用</a>]<br/>数量:<%=zi%><%=rs("page")%><%=zi0%><br/>
<%
			end if
	 	Rs.MoveNext
	  	Next

%>
<%=we1%>
<%
       
    		if rs.PageCount >1 then
     		    Response.Write sou
    		End If
    		If Page < rs.PageCount Then
    		    Response.Write("<a href='chuwu.asp?act="&act&"&amp;fansid="&fansid&"&amp;page=" & Page + 1 & "&amp;sid="&sidd&"'>下一页</a>")
    		End If
       
    		If Page > 1 And Page < rs.PageCount Then
    		    Response.Write("|")
    		End If
        
    		If Page > 1 Then
    		    Response.Write("<a href='chuwu.asp?act="&act&"&amp;fansid="&fansid&"&amp;page=" & Page - 1 & "&amp;sid="&sidd&"'>上一页</a>"&we0&"")
    		Elseif rs.PageCount >1 then
    		    Response.Write we0
    		End If
            
    		Randomize()
    
    		If rs.PageCount > 2 Then
    		    %>
		<%=book%>
		<%
     		    Response.Write("" & dao & "[第"&Page&"/总"&rs.PageCount&"页/"&rs.RecordCount&"条]"&we0&"")
    		End If
		else
%>
暂无物品<%=we0%>
<%
		end if
		Rs.close


	set rs=nothing
%>
<%=hr%>
<%=qingtian.qingsav("101")%><%=sou%><a href="fans.asp?sid=<%=sidd%>">我的好友</a>|<a href="shangchen.asp?sid=<%=sidd%>">商场</a>|<a href="chuwu.asp?sid=<%=sidd%>">储物箱</a><%=we0%>
<%

end Function
%>
